﻿Imports System.ComponentModel

Public Class MonHocBUS
    Public Sub LoadDGV(ByVal dgv As DataGridView, ByVal sql As String)
        Dim MonHoc_DAO As MonHocDAO = New MonHocDAO
        MonHoc_DAO.LoadGridView(dgv, sql)
    End Sub
    Public Function ThemMonHoc(ByVal mhInsert As MonHocDTO) As Boolean
        Dim MonHoc_DAO As MonHocDAO = New MonHocDAO
        Return MonHoc_DAO.ThemMonHoc(mhInsert)
    End Function
    Public Function XoaMonHoc(ByVal id As String) As Boolean
        Dim MonHoc_DAO As MonHocDAO = New MonHocDAO
        Return MonHoc_DAO.XoaMonHoc(id)
    End Function
    Public Function SuaMonHoc(ByVal mhUpdate As MonHocDTO) As Boolean
        Dim MonHoc_DAO As MonHocDAO = New MonHocDAO
        Return MonHoc_DAO.SuaMonHoc(mhUpdate)
    End Function
    Public Function GetList() As BindingList(Of MonHocDTO)
        Dim mh_DAO As MonHocDAO = New MonHocDAO
        Return mh_DAO.GetList()
    End Function
End Class
